home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (10th Edition) / The CD-ROM Directory 10th Edition.ISO / install / inscript.fra < prev    next >
Encoding:
Text File  |  1993-06-28  |  16.5 KB  |  694 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Jun 1 1993;3.2
  3. ; Apr 8 1993 hs, Jun 1 1993 hg
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----       CD Answer Installation pour:\n\n
  76. ----              <prod>\n\n
  77. ----       Application(s): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ---- Le chemin d'accès <dstdrive><path> n'est pas autorisé!
  89. ---- Pour que l'installation du logiciel reussise, il faut qu'il y ait
  90. ---- un nom valide de sous-répertoire et d'unité.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT Le logiciel d'extraction doit être installé sur votre disque dur ou sur un
  95. ---- disquette formatée.  Les valeurs standards sont <dstdrive> pour l'unité (le
  96. ---- disque dur généralement) et un sous-répertoire désigné sous le nom de
  97. ---- <path>.  Pour utiliser ces valeurs, appuyez à
  98. ---- deux reprises sur ─┘ (Entrée).  Si vous voulez les modifier, tapez
  99. ---- le nouveau nom de l'unité et du sous-répertoire en regard de l'invite
  100. ---- appropriée, puis appuyez sur ─┘ (Entrée)
  101. INPUT 6,8,5 dstdrive  = Installation sur unité        ?
  102. INPUT 6,10,40 path    = Installation dans répertoire  ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT Le répertoire "<dest>" existe déjà.
  117. NEWMENU 1, 3, 67
  118. ;TFPL -8-6-93
  119. MENU Installer le logical et seulement l'interface françcias
  120. MENU Installer le logical et les interfaces pour toutes les langues
  121. ;TFPL
  122. MENU Supprimez l'ancienne version; n'installez pas le nouveau
  123. MENU Modifiez la configuration; ne copiez pas le logiciel
  124. MENU Interrompez l'installation sans faire aucune modification
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Effacement du contenu antérieur de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\ADL_MSGS.*
  159. DEL <dest>\DW.EXE
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Suppression du répertoire <dest>...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT Le répertoire <dest> contient des fichiers non répertories,
  180. ---- le répertoire n'est pas supprimé !!
  181. WAIT
  182. GOTO norem
  183. :remdest
  184. RD <dest>
  185. :norem
  186. DEL <dstdrive>\<prod>.BAT
  187. GOTO end2
  188.  
  189. CHOICE 4
  190. SET alter = Y
  191. SET confile = <dest>\_DW_.CFG
  192. GOTO okpath
  193.  
  194. CHOICE 5
  195. GOTO end2
  196. ENDCHOICES
  197.  
  198. :nopath
  199. MD <dest>
  200. IF NOT DIREXISTS <dest> GOTO getdir
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Installer le logical et seulement l'interface françcias
  205. MENU Installer le logical et les interfaces pour toutes les langues
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Reading configuration...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problème - Aucune unité CD-ROM n'est installée.  \n\n Veuillez utiliser le
  233. ---- disque d'installation fourni par votre fabricant d'unité CD-ROM pour
  234. ---- installer le questionnaire de périphériques.  Puis réexecutez le programme
  235. ---- d'installation. \n\n
  236. ---- Remarque : le disque d'installation de l'unité CD-ROM reproduira quelques
  237. ---- fichiers sur votre disque système et modifiera les fichiers
  238. ---- CONFIG.SYS et AUTOEXEC.BAT.
  239. ---- D'autres programmes utilisent MSCDEX, il est recommande de supprimer
  240. ---- la ligne d'appel de ce programme de votre fichier AUTOEXEC.BAT, étant
  241. ---- donné que ce logiciel n'en a pas besoin.  Assurez vous de
  242. ---- réinitialiser votre système une fois que les modules CD-ROM sont
  243. ---- installés.
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248.  
  249. SET msg =
  250. IF <hs>==1 GOTO instOne
  251.  
  252. TEXT Vous pouvez choisir parmi différentes unités CD-ROM <def_cdtype>.  Avec
  253. ---- l'aide des touches  et , sélectionnez le périphérique CD-ROM
  254. ---- <def_cdtype> dans la liste, puis appuyez sur ┘ (Entrée) lorsque vous êtes
  255. ---- prêt à commencer.  Appuyez sur Echap pour interrompre l'installation.
  256. GOTO :instMore
  257.  
  258. :instOne
  259. SET msg = Un module CD-ROM <def_cdtype> est installe (voir CONFIG.SYS):\n\n
  260.  
  261. :instMore
  262. HSDRIVER hsname = 25, 6
  263. CONFIG Driver = "<def_driver>=<hsname>"
  264. CLEAR
  265. TEXT <msg> Le module CD-ROM <def_cdtype> sélectionné est nommé "«<hsname>»".  Dans le cas ou cette information est érronee, appuyez sur Echap pour
  266. ---- interrompre l'installation et vérifiez votre fichier CONFIG.SYS.
  267. ---- Il n'est pas nécessaire de faire appel au programme MSCDEX.EXE
  268. ---- (Extensions CD-ROM de Microsoft) pour exécuter ce logiciel.
  269. ---- A moins qu'il soit nécessaire pour un autre logiciel, vous pouvez
  270. ---- supprimer ce programme de votre fichier \AUTOEXEC.BAT (dans lequel
  271. ---- le programme d'installation de l'unité peut l'avoir placé).
  272.  
  273. WAIT
  274.  
  275. CLEAR
  276. TEXT Copie de l'interface CD-ROM <def_cdtype>...
  277. SET driver_name = <def_driver>.DRV
  278. GOSUB copy_driver
  279.  
  280. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  281. :disp_choice
  282. CLEAR
  283. TEXT Options Ecran :\n
  284. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  285.  
  286.  
  287. NEWMENU ? 6 46
  288. MENU Ecran standard        Pas de graphiques
  289. MENU Adaptateur VGA
  290. MENU Adaptateur MCGA
  291. MENU Adaptateur EGA
  292. MENU Adaptateur CGA
  293. MENU Carte graphique Hercules
  294. MENU Olivetti, AT&T ou Compaq Plasma
  295. MENU Ecran entièr
  296.  
  297. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  298. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  299. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  300. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  301. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  302. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  303. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  304.  
  305. SET Port = N
  306. SET Graphic = N
  307.  
  308. CHOICE 1
  309.  SET scr_type = SC_STD
  310.  SET Port = ?
  311. CHOICE 2
  312.  SET scr_type = SC_VGA
  313.  SET Port = ?
  314. CHOICE 3
  315.  SET scr_type = SC_MCGA
  316.  SET Port = ?
  317. CHOICE 4
  318.  SET scr_type = SC_EGA
  319.  SET Port = ?
  320. CHOICE 5
  321.  SET scr_type = SC_CGA
  322.  SET Port = ?
  323. CHOICE 6
  324.  SET scr_type = SC_HERC
  325. CHOICE 7
  326.  SET scr_type = SC_ATT
  327.  SET Port = ?
  328. CHOICE 8
  329.  SET scr_type = FP
  330. ENDCHOICES
  331.  
  332. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  333.  
  334. CLEAR
  335. TEXT Options Ecran :\n
  336. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  337.  
  338. NEWMENU ? 6 46
  339. MENU Cornerstone FullPage
  340. MENU MDS Genius
  341.  
  342. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  343. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  344.  
  345. CHOICE 1
  346.  SET scr_type = SC_CNRST
  347. CHOICE 2
  348.  SET scr_type = SC_MDS
  349. ENDCHOICES
  350.  
  351. :not_full_page
  352.  
  353. SET extra =
  354. IF NOT "<Port>" == "?" GOTO no_scr_opts
  355.  
  356. CLEAR
  357. TEXT Copie du module d'écran...
  358. ---- Avec l'aide des flèches  et , sélectionnez un type d'écran, puis appuyez sur ┘ (Entrée).
  359.  
  360.  
  361.  NEWMENU ? 6 52
  362.  MENU Ecran standard       Moniteur Couleur ou monochrome
  363.  MENU Ordinateur portatif  Ecran monochrome intégré
  364.  IF "<scr_type>"=="SC_CGA" DO MENU Older Color Screens - interference or "snow"
  365.  
  366. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  367.  
  368. CHOICE 2
  369.   SET extra = P
  370. CHOICE 3
  371.   SET extra = F
  372. ENDCHOICES
  373.  
  374. :no_scr_opts
  375.  
  376. CONFIG Screen = "<scr_type>=<extra>"
  377.  
  378. CLEAR
  379. TEXT Copie du module d'écran
  380. SET driver_name = <scr_type>.DRV
  381. GOSUB copy_driver
  382.  
  383. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  384.  
  385. CLEAR
  386. TEXT Sélections d'imprimantes:\n
  387. ---- Avec l'aide des flèches  et , sélectionnez l'imprimante desirée\n
  388. ---- et appuyez sur ┘ (Entrée).
  389.  
  390. SET extra =
  391.  
  392. NEWMENU ? 6 46
  393. MENU Famille HP LaserJet
  394. MENU Famille HP DeskJet
  395. MENU Contrôleur imprimante JLaser
  396. MENU Autre imprimante
  397.  
  398. CHOICE 1
  399.   SET prn_type = PR_PCL?
  400. CHOICE 2
  401.   SET prn_type = PR_DJ?
  402. CHOICE 3
  403.   SET prn_type = PR_JL?
  404. CHOICE 4
  405.   SET prn_type = PR_STD
  406. ENDCHOICES
  407.  
  408. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  409. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  410. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  411. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  412.  
  413. :pr_type_1
  414.  
  415.   CLEAR
  416.  
  417.   GOSUB pr_detail
  418.  
  419.   NEWMENU ? 6 46
  420.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  421.   MENU HP LaserJet Series II, IID
  422.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  423.  
  424.   CHOICE 1
  425.     SET extra = R
  426.   CHOICE 2
  427.     SET extra = X
  428.   CHOICE 3
  429.     SET extra = XG
  430.   ENDCHOICES
  431.  
  432.   GOSUB pr_detail
  433.  
  434.   NEWMENU ? 6 46
  435.   MENU 300 Dpi (mémoire   1Mb)
  436.   MENU 150 Dpi (mémoire 512Kb)
  437.   MENU 75  Dpi (mémoire 256Kb)
  438.  
  439.   CHOICE 1
  440.     SET prn_type = PR_PCL30
  441.   CHOICE 2
  442.     SET prn_type = PR_PCL15
  443.   CHOICE 3
  444.     SET prn_type = PR_PCL75
  445.   ENDCHOICES
  446.  
  447.   GOTO pr_type_ok
  448.  
  449. :pr_type_2
  450.  
  451.   GOSUB pr_detail
  452.  
  453.   NEWMENU ? 6 46
  454.   MENU HP DeskJet(+)
  455.   MENU HP DeskJet 500
  456.   MENU HP DeskJet 500C
  457.  
  458.   CHOICE 1
  459.     SET extra = X
  460.   CHOICE 2
  461.     SET extra = XG
  462.   CHOICE 3
  463.     SET extra = XG
  464.   ENDCHOICES
  465.  
  466.   GOSUB pr_detail
  467.  
  468.   NEWMENU ? 6 46
  469.   MENU 300 Dpi
  470.   MENU 150 Dpi
  471.   MENU 75  Dpi
  472.  
  473.   CHOICE 1
  474.     SET prn_type = PR_PCL30
  475.   CHOICE 2
  476.     SET prn_type = PR_PCL15
  477.   CHOICE 3
  478.     SET prn_type = PR_PCL75
  479.   ENDCHOICES
  480.  
  481.   GOTO pr_type_ok
  482.  
  483. :pr_type_3
  484.  
  485.   GOSUB pr_detail
  486.  
  487.   NEWMENU ? 6 46
  488.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  489.   MENU HP LaserJet (autres modèles)
  490.   MENU Canon LBP (tous modèles)
  491.  
  492.   CHOICE 1
  493.     SET prn_type = PR_JLHP
  494.     SET extra = R
  495.   CHOICE 2
  496.     SET prn_type = PR_JLHP
  497.     SET extra = X
  498.   CHOICE 3
  499.     SET prn_type = PR_JLCAN
  500.   ENDCHOICES
  501.  
  502.   GOTO pr_type_ok
  503.  
  504. :pr_type_4
  505.  
  506.   GOSUB pr_detail
  507.  
  508.   NEWMENU ? 6 46
  509.   MENU PC série de 8 bit caractères
  510.   MENU National de 7 bit caractères
  511.  
  512.   CHOICE 2
  513.     SET extra = 7
  514.   ENDCHOICES
  515.  
  516.   GOTO pr_type_ok
  517.  
  518. :pr_detail
  519. CLEAR
  520. TEXT Choix des détails d'imprimante:\n
  521. ----   Utiliser les flèches  et  pour choisir les options de\n
  522. ----   l'imprimante et poussez ┘ (Enter)
  523. RETURN
  524.  
  525. :pr_type_ok
  526.  
  527. SET port =
  528.  
  529. NEWMENU ? 6 40
  530. MENU LPT1       Imprimante parallèle    # 1
  531. MENU COM1       Imprimante séquentielle # 1
  532. MENU LPT2       Imprimante parallèle    # 2
  533. MENU COM2       Imprimante séquentielle # 2
  534. MENU LPT3       Imprimante parallèle    # 3
  535. MENU LPT4       Imprimante parallèle    # 4
  536. MENU PRN        L'imprimante courante DOS
  537.  
  538. CLEAR
  539. TEXT Choix des connexions d'imprimante:\n
  540. ----   Utiliser les flèches  et  pour choisir le port de\n
  541. ----   l'imprimante et poussez ┘ (Enter)
  542.  
  543. CHOICE 1
  544.  SET port = LPT1,
  545. CHOICE 2
  546.  SET port = COM1,
  547. CHOICE 3
  548.  SET port = LPT2,
  549. CHOICE 4
  550.  SET port = COM2,
  551. CHOICE 5
  552.  SET port = LPT3,
  553. CHOICE 6
  554.  SET port = LPT4,
  555. CHOICE 7
  556.  SET port = PRN,
  557. ENDCHOICES
  558.  
  559. CONFIG Printer = "<prn_type>=<port><extra>"
  560.  
  561. CLEAR
  562. TEXT Copie des connexions d'imprimante...
  563. SET driver_name = <prn_type>.DRV
  564. GOSUB copy_driver
  565.  
  566. ;---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- -
  567.  
  568. IF "<alter>"=="Y" GOTO done
  569.  
  570. :read_disk
  571. GOSUB need_disk
  572. ;TFPL 8-6-93
  573. IF "<ch>"=="2" GOTO inst_only_eng
  574. IF "<ch>"=="3" GOTO inst_all
  575.  
  576. :inst_only_eng
  577. CLEAR
  578.  
  579. TEXT Installation des fichiers du logiciel et de l'interface français on cours....
  580. COPY_OPT <insdrive>\DISK<curdisk>\*.FRA <dest>
  581. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  582. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  583. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  584. COPY_OPT <ins>\_DW_MSGS.FRA <dest>
  585. COPY_OPT <ins>\ADL_MSGS.FRA <dest>
  586. GOTO adl_dw_message
  587.  
  588. :inst_all
  589. ;TFPL
  590.  
  591.  
  592. CLEAR
  593. TEXT Installation des fichiers d'applications à partir du disque
  594. ---- d'installation <curdisk>...
  595. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  596.  
  597. ;TFPL 8-6-93
  598. COPY_OPT <ins>\_DW_MSGS.* <dest>
  599. COPY_OPT <ins>\ADL_MSGS.* <dest>
  600. GOTO adl_dw_message
  601.  
  602. :inst_only_soft
  603. CLEAR
  604.  
  605. TEXT Installing only software files...
  606. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  607. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  608. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  609. COPY_OPT <ins>\_DW_MSGS.* <dest>
  610. COPY_OPT <ins>\ADL_MSGS.* <dest>
  611. ;TFPL
  612.  
  613.  
  614. ;Copy adl and dw message files
  615. :adl_dw_message
  616. IF NOT DIREXISTS <ins> GOTO skip_message_files
  617. COPY_OPT <ins>\UPDATE.EXE <dest>
  618. :skip_message_files
  619.  
  620. CALC curdisk = <curdisk> + 1
  621. IF EXISTS <insdrive>MORE GOTO read_disk
  622.  
  623. CONFIG Language = "<def_lang>"
  624. goto DONE
  625.  
  626. :abort
  627. if "<dest>"=="" GOTO nofiles
  628. if "<alter>"=="Y" GOTO nofiles
  629. CLEAR
  630. TEXT \n\n!!! Installation interrompue !!!\n\n
  631. ---- Suppression des fichiers copiés...
  632. UNCOPY
  633. :nofiles
  634. CLEAR
  635. TEXT \n\n!!! Installation interrompue !!!\n\n
  636. goto END
  637.  
  638. :copy_driver
  639. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  640. CALC curdisk = <curdisk> + 1
  641. GOSUB need_disk
  642. GOTO copy_driver
  643. :ok_copy
  644. COPY <ins>\<driver_name> <dest>
  645. RETURN
  646.  
  647. :need_disk
  648. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  649. :retry_disk2
  650. CLEAR
  651. TEXT Introduisez le disque d'installation numéro <curdisk> et appuyez sur ┘ (Entrée) lorsque vous êtes prêt à commencer.
  652. WAIT
  653. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  654.  
  655. CLEAR
  656. TEXT Le disque introduit n'est pas le disque d'installation numéro <curdisk> !
  657. NEWMENU ?, 3, 15
  658. MENU Réessayer
  659. MENU Abondonner
  660.  
  661. CHOICE 1
  662. GOTO retry_disk2
  663. ENDCHOICES
  664.  
  665. ABORT
  666.  
  667. :done
  668. CLEAR
  669. TEXT Mise à jour des textes
  670. WRITECONFIG <dest>\_DW_.CFG
  671. IF "<alter>"=="Y" GOTO end
  672. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  673.  
  674. CLEAR
  675. TEXT \nL'installation est terminée !\n\n
  676. ----Un fichier appelé <prod> a été crée dans le répertoire <dstdrive>. \n\nPour exécuter le programme, tapez : <prod> ┘\n\n
  677. ----Important: Pour que cette commande fonctionne selon les indications,
  678. ---- vous devez être dans le répertoire <dstdrive>\ ou ce répertoire doit
  679. ---- se trouver dans la commande PATH.
  680.  
  681.  
  682.  
  683. :end
  684. WAIT
  685.  
  686. :end2
  687. CD <$CurDir>
  688.  
  689.  
  690.  
  691.  
  692.  
  693.                    
  694.